home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / e / AmSp4E.lha / AmSp_Example1.e < prev    next >
Text File  |  1998-02-05  |  1KB  |  34 lines
  1. /******************************
  2. *******************************      Used:
  3. ** example 1 for AmosBobs.m  **
  4. **                           **      - mGetIBInfo
  5. ** Informations about bobs.  **      - mLoadIB
  6. **                           **      - mEraseIB
  7. ** (C) 1999 By Krzys Cmok    **
  8. *******************************
  9. ******************************/
  10.  
  11. MODULE '*amosbobs'             /* open module for amos bobs */
  12.  
  13. PROC main()
  14. DEF databank                   /* definition of datas */
  15.  
  16. /* load willy.abk file */
  17. IF (databank:=mLoadIB('willy.abk'))=0
  18.     WriteF('Can\at load willy.abk\n')
  19.     CleanUp()
  20. ENDIF
  21.  
  22. WriteF('Example 1\n' +
  23.        'First bob from willy.abk\n\n' +
  24.        'Width,Height:\t\d,\d\n' +
  25.        'Depth,Colours:\t\d,\d\n',
  26.     mGetIBInfo(databank,1,IB_WIDTH),    /* width of 1 obj */
  27.     mGetIBInfo(databank,1,IB_HEIGHT),       /* height of 1 obj */
  28.     mGetIBInfo(databank,1,IB_DEPTH),        /* depth of 1 obj */
  29.     mGetIBInfo(databank,1,IB_COLOURS));     /* colours of 1 obj */
  30.  
  31. mEraseIB(databank)                    /* clean memory */
  32.  
  33. ENDPROC
  34.